function rest=checksig()

tcrse=linspace(0,1,100);
tfine=linspace(0,1,10000);
load('orthbase');
sig1=@(s) exp(s);

sig2=exp(linspace(0,1,10000));

rest1=zeros(100,1); rest2=rest1;

for ii=1:100
    t=tcrse(ii);
    tindex=floor(t*9999+1+0.0025);
    rest1(ii)= rest1(ii)+sig2(tindex);
    rest2(ii)= rest2(ii)+sig1(t);
end

rest=max(abs(rest1-rest2));
